home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / profile.com / PROFILE.BAS (.txt) next >
Encoding:
GW-BASIC  |  1982-11-21  |  640 b   |  28 lines
  1. 10  REM prog = profile
  2. 20  REM PC Magazine [Oct 1982 pg 102]
  3. 30  DEF SEG = &HC00: BLOAD "PROFILE.MEM",0: KEY OFF
  4. 40  STARTP% = 0: ENDP% = 3: GETP% = 6
  5. 50  MAXLINE% = 140: CALL START%(MAXLINE%)
  6. 60  ' dummy demo prog follows:
  7. 70  FOR LOOP = 1 TO 24
  8. 80    X=0: R= RND * 1000
  9. 90    PRINT R,
  10. 100   X = X + 1
  11. 110   R = R/2
  12. 120   IF R>1 THEN 100
  13. 130   PRINT X
  14. 140  NEXT
  15. 150  CALL ENDP%
  16. 160  ' following section produces a graph
  17. 170       WID% = 80
  18. 180  FOR L% = 70 TO MAXLINE% STEP 10
  19. 190     PRINT USING "###";L%;
  20. 200     N% = L%: CALL GETP%(N%)
  21. 210     IF N%>WID%-5 THEN N% = WID%-5
  22. 220     FOR I% = 1 TO N%
  23. 230       IF I% MOD 10 THEN PRINT "-";: ELSE PRINT "+";
  24. 240     NEXT
  25. 250     PRINT
  26. 260  NEXT
  27. 270  END
  28.